home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / vdtwn / tvf / asmhd6 / comdhd6 / j_xor.hd6 < prev    next >
Text File  |  1993-07-08  |  1KB  |  105 lines
  1. ds_name        db    '\KOMEI\実物\TVF_PRG\J_XOR',0
  2.  
  3. paint_wd:
  4.      SET_P dt1
  5.      SET_P dt2
  6.      SET_P dt3
  7. re_paint:
  8.      WD_CLS 0
  9.      BOX boxdt,1
  10.      MOZI mozidt
  11. be_called:
  12.      ret
  13.  
  14. mouse_in:
  15.       cmp ch,1
  16.      je mouseck
  17.       ret
  18.  
  19. mouseck:
  20.      MOU boxdt,1
  21.  
  22.      cmp bx,1                  ;bx=1 find
  23.      je short mck1             ;ax = no
  24.      ret
  25. mck1:
  26.      cmp ax,1
  27.      je find1    
  28.      ret
  29. cls0:
  30.      mov ah,25
  31.      mov al,2
  32.      jmp komei
  33.  
  34. find1:
  35.      mov ax,1
  36.      KAKU 306,ax
  37.      CALL_P dt1
  38.  
  39.      CALL_P dt2
  40.      CALL_P dt3
  41.  
  42.      GAMEN 1632
  43.      mov bx,0
  44.      call cls0
  45.      
  46.      mov ah,27
  47.      call komei
  48.  
  49. ;     call re_paint
  50.  
  51. ;     mov ah,0eh
  52. ;     mov al,1
  53. ;     call MOUSE
  54.  
  55.      ret
  56. look_me:
  57.      call sub_esi
  58.      dd 0,0
  59.      dw     1,0,17*8,26,382,90,15,5,0,0
  60.  
  61.  
  62.  
  63. boxdt:
  64.     call sub_edi
  65.         dw    1,17*8-4,24,2,2,0,20,12,7,0
  66.  
  67.  
  68. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  69.  
  70. mozidt:
  71.     call sub_edi
  72.            dw    0        ;screen_no
  73.            dw    1      ; mozi_color
  74.            dw    2      ; 書き出し位置  x
  75.            dw    2      ;          y
  76.            dw    10      ; next offset x
  77.            dw    0      ; next offset y
  78.     
  79.                dw   1      ; gyo suu
  80.                    db    '上の色とＸＯＲ  ',0
  81.                 dw 0,0
  82.  
  83.  
  84. dt1:
  85.      call sub_edi
  86.      dw     ?
  87.      db 'F_COL',0
  88. dt3:
  89.      call sub_edi
  90.      dw     ?
  91.      db 'D_MAIN2',0
  92. dt2:
  93.      call sub_edi
  94.      dw     ?
  95.      db 'H_DG',0
  96.  
  97. p_set:
  98.      M_P_SET
  99. p_call:
  100.  
  101.          M_P_CALL
  102.  
  103.  
  104.  
  105.